﻿Option Explicit On
Option Strict On
Imports System.Data.OleDb

Public Class FormAnyadirTorneo

    Dim EquiposCb As Equipo
    Dim miBD As BaseDatos
    Dim DatosLeidos As OleDbDataReader

    Private Sub FormAnyadirTorneo_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.Icon = My.Resources.icono_campeonato
        EquiposCb = New Equipo()
        miBD = New BaseDatos()

        DatosLeidos = miBD.Leer("SELECT Nombre FROM Equipo")
        While DatosLeidos.Read()

            cbx_Equipo1.Items.Add(DatosLeidos(0).ToString)
            cbx_Equipo2.Items.Add(DatosLeidos(0).ToString)

        End While

    End Sub

    Private Sub cbx_Equipo1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbx_Equipo1.SelectedIndexChanged

        cbx_Equipo2.Items.Clear()
        EquiposCb = New Equipo()
        miBD = New BaseDatos()

        DatosLeidos = miBD.Leer("SELECT Nombre FROM Equipo WHERE Nombre NOT LIKE '" & cbx_Equipo1.Text & "'")
        cbx_Equipo2.Refresh()

        While DatosLeidos.Read

            cbx_Equipo2.Items.Add(DatosLeidos(0).ToString)
            cbx_Equipo2.Refresh()

        End While

    End Sub

    Private Sub cbx_Equipo2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbx_Equipo2.SelectedIndexChanged

        cbx_Equipo1.Items.Clear()
        EquiposCb = New Equipo()
        miBD = New BaseDatos()

        DatosLeidos = miBD.Leer("SELECT Nombre FROM Equipo WHERE Nombre NOT LIKE '" & cbx_Equipo2.Text & "'")

        cbx_Equipo1.Refresh()
        While DatosLeidos.Read

            cbx_Equipo1.Items.Add(DatosLeidos(0).ToString)
            cbx_Equipo1.Refresh()

        End While

    End Sub
End Class